perm filename FIBON.PAS[S1,ALS] blob sn#489340 filedate 1979-12-28 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	program FIBONACCI
C00003 ENDMK
CāŠ—;
program FIBONACCI;

const	ZERO = 0;  ONE = 1;  LAST = 48;

var	FIRST, SECOND, THIRD, COUNT : integer;

begin

FIRST := ZERO;
SECOND := ONE;
writeln (TTY,FIRST:14,SECOND:14);  BREAK;
writeln (OUTPUT,FIRST:14,SECOND:14);
COUNT := 2;
while COUNT < LAST do
    begin
    THIRD := FIRST + SECOND;
    FIRST := SECOND;
    SECOND := THIRD;
    write (TTY,SECOND:14);
    write (OUTPUT,SECOND:14);
    COUNT := COUNT + 1;
    if COUNT mod 4 = 0 then writeln (OUTPUT);
    end;
end.